   5 CLEAR ;A=0;B=-17;G=0;E=-10;D=0;BC=7;FC=0;XY=-9283;LINE -30,-12,1;LINE 30,-12,1;LINE 67,-37,1;LINE -67,-37,1
  10 LINE -67,11,1;LINE -30,21, 1;LINE -30,-12,1;LINE -30,21,1;LINE 30,21,1;LINE 30,-12,1;LINE 67,-37,1;LINE 67,11,1
  15 LINE 30,21,1;I=0;GOTO 30
  20 GOSUB 200;I=RND (3)
  30 H=58;P=30;FOR Z=1TO 14;FC=BC+4+RND (32)×8;BOX 0,5,H,P,3;H=H-4;P=P-2;NEXT Z;IF I=0GOTO 20
  40 A=JX(1)+A;B=JY(1)+B;GOSUB 400;NT=0;IF TR(1)=1GOSUB 100
  45 GOSUB 400
  50 IF A>28A=28
  60 IF A<-28A=-28
  70 IF B>5B=6
  80 IF B<-19B=-19
  85 IF G=5CY=31;PRINT "      I WANT THE SHAH";FOR Z=1TO 9;FC=7;MU=Z;FC=80;NEXT Z;STOP
  90 GOTO 40
 100 NT=1;C=B;C=C+9;FOR F=-36TO CSTEP 3;BOX A,F,1,3,3;BOX A,F,1,3,3;MU=16;NEXT F;G=G+1;BOX A,C,1,1,3;CY=31;CX=2;PRINT #1,G
 110 IF I=1IF C<=10IF C>=9IF A<=5IF A>=4GOTO 290
 120 IF I=2IF C<=10IF C>=9IF A<=-3IF A>=-4GOTO 290
 130 IF I=3IF C=5IF A<=2IF A>=1GOTO 290
 140 RETURN 
 200 XY=5116;LINE 7,19,3;XY=4852;LINE 14,18,3;XY=4594;LINE 16,17,3;XY=4337;LINE 18,16,3;XY=4080;LINE 17,15,3
 210 XY=3824;LINE -4,14,3;XY=3589;LINE 16,14,3;XY=3567;LINE -8,13,3;XY=3337;LINE 15,13,3;XY=3312;LINE -8,12,3
 220 XY=3081;LINE 14,12,3;XY=3057;LINE -8,11,3;XY=2825;LINE 13,11,3
 225 IF D=1NT=2;&(21)=255;FOR Z=295TO 60STEP -3;MU=Y;FC=Z;BC=0;&(23)=Z;NEXT Z;&(21)=0;STOP
 230 XY=2038;LINE E,-5,3;XY=2295;LINE -9,-5,3;XY=2296;LINE -8,-6,3;XY=2297;LINE -7,-9,3;XY=250;LINE -6,-9,3
 240 XY=-5;LINE -5,E,3;XY=-260;LINE -4,E,3;XY=-259;LINE -3,E,3;BOX 2,-6,8,8,3;XY=-506;LINE 6,E,3;XY=-249;LINE 7,E,3
 250 XY=1800;LINE 8,E,3;XY=2057;LINE 9,E,3;XY=2058;LINE 10,-9,3;XY=1803;LINE 11,-8,3;XY=3322;LINE -5,11,3
 260 XY=3327;LINE -2,11,3;XY=3074;LINE 3,11,3;XY=3079;LINE 6,11,3;XY=2561;LINE -1,10,3;XY=2304;LINE 0,8,3;XY=1793;LINE 2,6,3
 270 XY=1281;LINE 0,4,3;XY=1282;LINE 3,4,3;BOX -3,0,1,1,3;BOX 5,0,1,1,3;XY=510;LINE 4,1,3;BOX 2,4,1,1,3
 280 BOX -3,10,2,3,3;BOX 5,10,2,3,3;RETURN 
 290 FOR Z=0TO 4;FC=56+Z;CY=31;CX=-15;PRINT "UNCLE";CY=31;CX=-15;PRINT "     ";NEXT Z;BOX 0,5,58,30,2
 310 XY=-2313;LINE 17,-10,3;XY=-2054;LINE 15,-9,3;XY=-1795;LINE 10,-8,3;XY=-1538;LINE 9,-7,3;XY=-1281;LINE 8,-6,3
 320 XY=-1280;LINE 7,-5,3;XY=-1023;LINE 7,-4,3;XY=-767;LINE 6,-3,3;BOX 2,2,3,9,3;XY=1792;LINE 4,7,3;XY=2302;LINE 5,8,3
 330 XY=2554;LINE 6,9,3;XY=2807;LINE 11,10,3;BOX 1,12,16,3,3;XY=3837;LINE 4,14,3;D=1;GOTO 200
 400 CY=B;CX=67;PRINT "◄";XY=-9405;LINE 67,11,1;BOX A,-34,1,3,3;BOX A,-37,3,6,3;RETURN 
>:RETURN ;RUN 
